home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / external / widstub / widget_arrowb.pro < prev   
Encoding:
Text File  |  1997-07-08  |  475 b   |  14 lines
  1. ;    $Id: widget_arrowb.pro,v 1.1 1995/07/21 18:04:00 ali Exp $
  2.  
  3. function widget_arrowb, parent, use_own_size, uvalue=uvalue,_extra=extra
  4.  
  5.   parent=long(parent)
  6.   result = WIDGET_STUB(parent,_extra=extra)
  7.   if (n_elements(uvalue) ne 0) then WIDGET_CONTROL, result, set_uvalue=uvalue
  8.   JUNK = CALL_EXTERNAL('widget_arrowb','widget_arrowb', $
  9.                        def='diska:[idl.ali.arrowb].exe', parent, result, $
  10.                use_own_size, value=[1, 1, 1])
  11.  
  12.   return, result
  13. end
  14.